home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / misc / monitor.c < prev    next >
C/C++ Source or Header  |  1992-10-05  |  495b  |  30 lines
  1. #include "scheme.h"
  2.  
  3. #include <sys/types.h>
  4.  
  5. #define MONSTART 2
  6.  
  7. static monitoring;
  8.  
  9. static Object P_Monitor (on) Object on; {
  10.     char *brk;
  11.     extern caddr_t sbrk();
  12.  
  13.     Check_Type (on, T_Boolean);
  14.     if (Truep (on)) {
  15.     if (!monitoring) {
  16.         brk = sbrk (0);
  17.         monstartup ((int (*)())MONSTART, (int (*)())brk);
  18.         monitoring = 1;
  19.     }
  20.     } else {
  21.     monitor (0);
  22.     monitoring = 0;
  23.     }
  24.     return Void;
  25. }
  26.  
  27. init_lib_monitor () {
  28.     Define_Primitive (P_Monitor, "monitor", 1, 1, EVAL);
  29. }
  30.